SIN (Sinclair Informations Nouvelles)

Le. POSEZ IAE Fr $
i eoi dd dc, E ade

PROG : QL- SUBSTITUTION, SURFACE

PROG : GROSSES LETTRES FACILES(C466)

INFOS : Utilisation des routines ROM
du 2468.

INFOS : Un lecteur nous dit son opinion

sur le UL.

INFOS : La liste des BBS de la region
de QUEBEC.

INFOS : Une unite de disquette pour le
TS52B68.

PROG : Hero” ciue pour iii AS

TR EE A A AAA SQ 11 ,0,.8L i |

[SINCLAIR NERS]

MODEM 2088....,..

$99526291219203555122959520222535827821531385990135123115

Savez-vous que vous pouvez vous procurer un modea WESTRIDGE
T8-2050 pour seulement 29,95$? C’est le nodem original pour le
78-2048, Il est complet et prêt à utiliser, mais il nanque
seulement le boitier. J'en ai commandé un par téléphone et l'ai
reçu en aoins de deux semaines. Je peux vous dire aujourd'hui
que c'est très intéressant de communiquer avec les babillards et
aussi les amis, Si vous êtes interressé vous pouvez en
coamander un chez:

SUNSET ELECTRONICS
2284 Taraval Street,
San Francisco,
Ca 94116 i
Pour commander, vous pouvez aussi téléphoner à |
415-855-6161, |

Yvon Lavoie
MEMOIRE STATIQUE POUR LE FAUX RP I En cU wn

E, ARTHUR BROWN CO, offre - une cartouche de mémoire
statique pour le 2068, Vous insérez la cartouche, vous écrivez
des données dans celle-gi, vous éteignez le 2068, et les données |
sont toujours présente dans la cartouche car elle contient une
pile qui garde les informations a&me lorsque l'ordinateur est
fermée, Pour plus d'informations écrire: |

E.A. Brown Company, 3404 Pawnee Drive, Alexandria, MN 56308, USA

UPGRADE MTERM, sesassssosneasusesosnsooenonsasnansoscsessososasono

MTERM est le logiciel de communication qui vient avec le MODEM
782050, LOADER V est une collection de 5 programmes qui comble
les lacunes de MTERM. LOADER V vous permet d'ajouter 20 nuaéros
au "directory" de MTERM, Augnente la vitesse pour la composition
de nuséros et permet la reconposition du numéros lorsque celui-çi
est engagé. Il ajoute le protocole XMODEM qui est trés utilisé
lors de transfert de fichier par MODEM.

KURT CASBY, 25 Battle Creek Court, St. Paul, MN 55119, USA i

Une version de MTERM en &4 colonnes est disponible (en cartouche)
2 chez ZEBRA SYSTEMS,

LOGICIEL SPECTRUM DIRECTEMENT DE GRANDE BRETAGNE...,,,,,,,,,,,,,,

Voici une adresse fiable pour commander vos SOFTS du SPECTRUM
d'Angleterre et ce, aux aeilleurs prix:

CUT PRICE SOFTHARE (Dept,&)

Unit & , Stuart House

Riverway , Harlow
Essex CM20 2DW
ENGLAND

Voici la procédure à suivre, Envoyez une enveloppe adressée et
non timbrée et ' 1,00 pour les frais postaux,

Siaon Rioux,
KIT AL : PRIX INCROYABLE,.......,

Le QL est maintenant disponible en kit au prix de $139 US,
Pour infos: QUANTUM COMPUTING, POB 1280-C5, DOVER, NJ 07801, USA
A+ COMPUTER RESPONSE, 68-B ISLAND ST., KEENE,
NH 03431, USA
( Si vous voulez voir une annonce d'un cosmercant enthousiaste
au sujet du AL, regardez COMPUTER SHOPPER ,Décenbre 86,p.272 )

Pour ce dernier numéro de l'année 1986, SIN vous offre quelques
pages de plus. Ceci a été possible grace à la collaboration de
lecteurs, comme vous, qui ont décidé de communiquer leurs
expériences à leur semblable.

Simon Rioux, de Hull, devient un collaborateur fidèle à SIN avec
ses programmes exploitant la commande SOUND du 2068, Dans ce
numéro, il vous offre une "toune" de circonstance, Jean-Claude
Touzin, de La Sarre, nous donne ses impressions sur son SINCLAIR
AL tandis que Yvon Lavoie, de Québec, nous parle de son unité de
disquette pour le 2048,

Merci à tous pour vos articles et programmes, ils sont grandement
appréciés. Vos commentaires le sont aussi, alors n'hésitez à ne

contacter à aa nouvelle adresse indiquée à la dernière page de ce
SIN,

je souhaite à tous une année 1987 pleine d'octets dodus...

Réal Gagnon.

| AL : Mon opinion...

Coane j'ai un OL depuis quelques sois, j'ai pensé vous
faire parvenir nes premières iapressions, Mes commentaires ne
font qu'effleurer le sujet car le OL est une machine très
complexe (on apprend vite l'usage du bouton RESET sur le
Bl...)

Preaiérement, pour ceux qui seraient tentés de se
procurer un OL sais qui hésitent, je dois dire que je ne suis
pas déçu, Le AL est un ordinateur très rapide et très souple,
Et il vient avec 4 logiciels qui permettent d'eaployer
l'ordinateur dés qu'on en fait l'acquisition, Ces nênes
logiciels ont été adaptés pour 1'IBM PC sous le non de
XCHANGE et se vendent environ $800 US... Les 2 aicrodrives de
100K sont égaleaent un atout quoiqu'en dise une certaine
publicité. Cette publicité, d'ailleurs, je l'avoue, p? avait
rendu néfiant à leur endroit. Je n'ai eu eu qu'une seule
erreur de lecture à date (que j'ai pu récupérer) et je crois
que je n'avait pas inséré la cartouche correctement.

Mais si vous aisez programaer, alors là le SUPERBASIC
est une merveille. Placez-le en mode auto et le OL insère
AUTOnatiquenent un no au début de vos lignes de programme.
Avec EDIT et les 4 touches fléchées vous pouvez corriger à
loisir. RENUM renuaérote vos lignes (jusqu'à 32767,..). Vous
avez des commandes spécialisées comae RAD et DEB qui
peraettent de passer des radians aux degrés et vice-versa, ou
DATE qui retourne le noabre de secondes depuis le ler janvier
1941 Oh, jusqu'à la date courante (intéressant pour les
amateurs d’astrononie),

Le Superbasic possède égalenent d'autres
caractéristiques étranges pour un prograsaeur habitué aux
anciennes versions de BASIC, Par ex, on peut écrire:

10 nombre=200

20 alpha$=nombre

Notez bien à la ligne 20, nombre n'est pas entre
guillemets...Autre exemple, lors du déroulement d'un
programe, si vous devez entrer une variable numérique,
disons 0, aais que par erreur vous tapez 0,0 le üL s'en
accoaaodera et en déduira que vous vous vouliez taper 0 sans
afficher de message d'erreur, La caractéristique principale
du BL senble être de nous siaplifier la tâche,

Mais la marque de commerce du SUPERBASIC est sans
contredit la structuration des programmes à l'aide des
procédures, qui permettent d'appeler des routines sans
“spécifier de nos de lignes, seulement leur noa. Avant de
prendre contact avec le @L je ne m'étais pas tellement
intéressé à ce que l'on appelle dans les revues
d'informatiques la "programmation structurée", Cette
possibilité de créer un programme par bloc, sans avoir à se
préoccuper des variables sur lesquelles la routine devra
effecter des opérations, ni du no de ligne où la procédure
sera iaplantée libère grandement le programseur. Je n'ai pas
encore réalisé d'applications complexes sur le GL, mais je me
suis déjà rendu compte d'un autre avantage des procédures:
étant donné que le nom des variables sur lesquelles
travaillent les procédures n'a pas à être le nême ailleurs
dans le progranane, il devient trés facile de se créer une
banque de procédures qu'on peut employer d'un prograane à
l'autre suivant les besoins. Encore une fois le @L nous
sinplifie la vie.

Il y aurait encore beaucoup à dire sur le sujet, mais
j'aimerais maintenant vous parler de na première expérience
avec une iapriaante 80 col. J'ai reçu il y a peu de temps aon
imprimante QL avec interface série directement connectable au
8L. Sans avoir à changer les codes ASCII etc., on peut faire
sortir les lettre françaises avec accent et une multitude de
syaboles. Cette imprimante a également un mode NLA (NDLR:
NLG = Near Letter Quality) trés performant, en fait on dirait
presqu'une —iaprisante à aarguerites, En mode NLA, les
caractères italiques sont parmi les plus lisibles que j'ai
vus sur une imprimante à matrices de points de ce prix ($400
can), En passant, contraireaent à ce qui est rapporté dans
SUM (avril 86), je n'éprouve aucune difficulté à charger ni

le papier ordinaire ni le papier avec des bretelles
perforées,

Jean-Claude TOUZIN
C.P.41 La Sarre, P.O,
J92 2X4

Voici 2 programaes pour le OL. Le premier sert à calculer une
surface quelconque et le deuxiéae et fort utile si vous avez un
coupole et que voulez l'orienter le aieux possible, Ces 2
programmes sont un envoi de Jean-Claude Touzin, E

DL A E e
145,30)

-

Hated lez unites sont en

ARE pieds, les resultats seront
des en pieds, $ ce sont dez
P Metros ils seront en metres.

V3 Faites 1,9 0 CENTER) 0 (ENTER:
[20,01 Lu NO ij. oen
e E pe

UNE

1,41 ARE des Y

51 0,0 est le premier point, 30,0 est le deuxiene et
15,30 est le troisieme (sens contraire d'une montre).

10 REMark surface

20 REMark par JC TOUZIN

39 :

1900 CLS#h:CLS#1 : CLSH2

1019 INPUT "Combien de sonsets y-a-t-il? "¡ver

1020 sb=ver+1

1039 DIM x(sb),y(sb)

1949 DIM px(ver),pylver)

1050 DIM nx(ver),ny(ver)

1060 PRINT"Choisissez un sommet quelconque pour

débuter et indiquez les coordonnées x,y de chaque

somaet dans le sens contraire des aiguilles d'une

nontre."

1970 FOR i=1 TO ver 1210 PRINT "La surface mesure "iprd

1980 INPUT "x, y "¡x(i),y(1) 1229 PRINT "Le périaétre mesure "¡pe

1090 pxlid=x(i):py(i)=y(i) 1239 PRINT "Le rapport surface/périaètrez "¡rd
1190 END FOR i 1240 graphique

1110 y(ver+1)=y(1)3x (vers) zx (1). 1250 STOP

1120 pi=0:p2=0 1260 DEFine PROCedure graphique

1139 FOR ¿=1 TO ver 1270 naximua:ainisua

1149 j=i+1 1289 regr_lineaire

1200 pi=pl+x(1)8y(j) 1290 n=ver

1169 p2=p2+x(j)8y(1) 1308 FOR i=1 TO n

1170 END FOR i 1310 nxlid=(mpx8px(1))+0x+2:3ny(1)=(apy8py(1))+by+2
1189 perisetre 1320 END FOR i

1199 prdz, 5t (p1-p2) 1339 FOR i={ TO (n-1)

1208 rapport 1340 LINER2, nx (2) ny(i). TO mx (i1) ny(i 1)

1350 END FOR i
1369 LINER2, nx (1), ny(1). TO mx (0) ny (n)
1379 END DEFine graphique
1389 DEFine PROCedure perimetre
1399 pe=0
6 1400 FOR i=1 TO ver-1

1419 pespe+SORT((x(1)-x (1+1))%2+(y(1)-y(1+1))2)
1420 END FOR i

1439 pespe+S0RT((x(1)-x(ver))*2+1y(1) -y (ver) ) ^2)
1449 END DEFine perinetre

1450 DEFine PROCedure rapport

1460 rd=prd/pe

1470 END DEFine rapport 1620 DEFine PROCedure regr lineaire

1480 DEFine PROCedure maximua 1639 sx=ax+ainxisy=ay+ainy:sxg=75:5yg=85
1499 ax=px(1)smy=py(1) 1640 sx2zax^2eninx^2:sy2zny^2*niny^2
1508 FOR i=2 TO ver 1650 sxxyzaxisxgrsxyysnylsyg

1510 IF px(ilomx THEN ex=px li) 1660 apxs(sxxy-(sx1sxg/2)] / [sx2- (sx^2/21)
1520 IF py(i)»ay THEN ayspyli) Abxz(5xq- (apx 1x2] /2

1530 END FOR i 1679 apyz (sxyy- (syt15yg/2)) / (y2- (sy^2/2))
1549 END DEFine aaximum tbys (syg- (apytsy))/2.-

1550 DEFine PROCedure siniaua 1689 END DEFine regr lineaire

1560 ainxspx (1) rainyspy(1)

1579 FOR i22 TO ver

1580 IF pxli}Cainx THEN ninx= px(í)
1599 IF py(i)<miny THEN ainyspy(i)
1508 END FOR i

1610 END DEFine ainiaum

DEUXIEME PROGRAMME:

10 REMark satellite

20 REMark JC TOUZIN

30 :

1000 WINDOW#9,512, 50, 0, 206: INK40, 4: PAPERE, Y
19104INDOW#1,256, 202, 257 , 01 INK#1,7:PAPER#1, 2: BORDERE1, 1,255
1020 HINDON#2,256, 202,9, 0: INK#2, 2:PAPER#2, 7: BORDERE2, 1, 255
1030 CLS +0:CLS #1:CLS #2

1049 instruction: datas: calcul

1958 PRINT \\'Ez= encore F= fin"

1960 LET ink$zINKEYS (-1)

1970 IF ink$z"e' OR ink$="E" THEN RUN

1980 CLS#9:CLS#1:CLS#2:LIST 1099: STOP

1999 REMark programme en sénoire:satellite

1100 DEFine PROCedure calcul

1119 long_sat=RAD(long_sat):lat=RAD(lat):long=RAD (long)
1120 diff longzlong sat-long

1139 t=1,821379E9-5,373748E83 (COS (1at) $COS (di £4. long))
1149 hauteur

1150 azinut

1160 PRINT V Hauteur z^; elevation; "|"

1170 PRINT V Aziauthz"; az i auth; "["

1189 IF elevation (0 THEN PRINT "Ce satellite est plus bas que

l'horizon." M
L>

1199 END DEFine calcul

1208 DEFine PROCedure hauteur

1219 t1:RADIt-1,740391E9)

1220 t2=RAD(12734450RT(t))

1230 t3=ti/t2

1249 elevationzACOS (t3)

1250 elevation=DEblelevation)-9

1269 END DEFine hauteur

1270 DEFine PROCedure azimut

1289 azisuthzATAN(TAN(diff long)/SIN(lat))

1290 aziauth=DEG (aziguth) +188

1309 END DEFine aziaut

1319 DEFine PROCedure instruction

1320 CSIZE 3,8:PRINT\"SATELLITE"

1330 CSIZE 0,0:PRINTA!"Ce programae indique consent orienter une
antenne pour capter un satellite de votre choix.L'azimuth donne
le nombre de degrés en partant du nord vers l'est.La hauteur est
l'élévation au-dessus de l'horizon en degrés,"

1340 END DEFine instruction

1359 DEFine PROCedure datas

1369 PRINT#2 ,V* Choisissez le satellite que vous voulez capter
(numéro 1 à 18);"

1370 DIM sat$(18,13)

1389 DATA "Aurora", "Satcos FIR", "Galaxy 1","Satcon F3"

1390 DATA "Comstar D4","Westar 5","Spacenet 1","Anik B"

1498 DATA "Anik D1”,"Nestar 4","Telstar 301","Nestar 3"

1410 DATA 'Constar D3",'Satcos F4","Westar 2","Constar

01/02" ,*Galaxy 2", "Satcon F2R”.

1420 RESTORE : FOR i=1 TO 18:READ sat$(i):NEXT i

1430 FOR iz1 T0 9

1440 ATRZ,1+3,0:PRINTHZ ,ij" -"ssat$(i): ATE2, 143, 20: PRINTE2
1*8" -isat (i 9)

1450 END FOR i

1469 INPUT 42, V Votre nuaéro? ";no

1470 SELect ON no 1569 ON noz?:long sat=194,5
1489 ON no=i:long sat=i4s 1579 ON no=10:long_sat=99
1499 ON noz2:1ong sat=139 1589 ON nozii:long sat=96
1594 ON no=3:long_sat=134 1599 — QN no=12:10ng_sat=91
1519 ON nos4:long sat=131 1609 ON no=i3:long sat=87
1529 ON no=5:long_sat=127 1619 ON no=14:long_sat=83
1539 ON no=b:long _sat=123 1629 ON no=15:long_sat=79
1549 ON no=7:long_sat=120 1639 ON no=16:long_sat=76
1559 ON no-B:long satz10? 1649 ON no=i7:long satz74

1659 ON no=1B:long sat=72
1669 ON no=REMAINDER :RUN

1670 END SELect

1689 INPUT 42,1" Votre latitude (nord=positive) en deg. et déc.:
*ilat

1690 INPUT #2," Votre longitude (ouestzpositive) en deg. et
déc.: "¡long

1700 END DEFine

1710 REMark SELect ON remplace une ligne de ce genre sur le
781009 ou le 2068 :LET

long satz(1431(noz11) (1391 (no22) ) * (1341 (no0=3))+(1313(no0=4))+(12-
7t (nos51)* (1231 (n020)) * (1201 (1027) * (1091 (no=8) ) 4 (104, 5% (n0=9))+-
(991 (n0219)) * (961 (n0211)) * (911 (n0212) ) * (87$ (n0213) ) 4 (831 (no=14))-
*(791(n02151)*(76£(n0216)) * (743 (n0217))* (721 (n0218)) ou une série
de IF... THEN

es u

(source SINC-LINK, newsletter du T/S TORONTO USER GROUP,
téléchargé de COMPUSERVE DATA LIBRARY AUGUST 1984)

NOTE: Toutes les adresses sont HEXADECIMALS.

CALL 436 --- BEEP
Pour faire un BEEP X,Y il faut que X,Y se retrouve
sur le pile arithnétique,
exemple: pour BEEP 1,30 -> LD A,1
CALL SOEó6jplace le contenu

LD 4,30 ¡de A sur la pile

CALL 30E6
CALL 435 ¡BEEP
CALL BAA --- CLS
CALL BA? --- CLS DU BAS DE L'ECRAN
CALL 939 --- SCROLL L'ECRAN D'UNE LIGNE
CALL 93B --- SCROLL À PARTIR DE "B" LIGNE,

On charge le registre B avec le nunéro de la ligne
du haut et on 'CALL 938". Les lignes au-dessus de
la ligne B seront laissées intactes.

CALL 97F --- CLS À PARTIR DE "B* LIGNE,
Siailaire à ci-dessus sauf qu'on CLS au lieu de
SCROLL.

CALL 802 --- COPY D'ECRAN SUR ZX PRINTER

CALL DID --- NEW

CALL 1788 --- PRINT NOMBRE
Inprise le nombre contenu dans BC.

CALL 1FF2 --- PAUSE

On charge BC avec le "temps" de la PAUSE, y
+

18

CALL 26EE --- DRAW X,Y,Z
Les paranètres doivent présent sur la pile
arithmétique. Nous devons sauvegarder le registre
PL’ car il est corrompu par la routine.
exeaple : EXX
PUSH HL
EXX

s .FOutine DRAW

RET

CALL 2813 --- DRAW X,Y
Ün aet ABS X dans C, ABS Y dans B, SEN X dans E et
SEN Y dans D. On doit sauvegarder H'L' (voir plus

haut).
CALL 3044 --- TEST ALPHANUMERIQUE
Retourne CARRY si À contient une lettre ou un
chiffre,
CALL 3048 --- TEST ALPHA
Retourne CARRY si À contient un lettre,
CALL 3009 --- TEST NUMERIQUE
Retourne NO CARRY si CODE "0" <= À >= CODE "9"
CALL 30E --- CONVERSION DE À EN VIRGULE FLOTTANTE

Conversion du contenu de À en virgule flottante et
le place sur la pile arithaétique. -

CALL 30E8 --- CONVERSION DE BC EN VIRGULE FLOTTANTE
Conversion du contenu de BC en virgule flottante et
le place sur la pile arithaétique,

CALL 3160 --- TRANSFERT LE DESSUS DE LA PILE ARITH. DANS BC
CALL 3141 --- PRINT UN NOMBRE EN VIRGULE FLOTTANTE

Imprime le dessus de la pile arithaétique.
CALL 1541 --- PRINT UNE LIGNE DE PROGRAMME

Imprime une ligne de programme donc l'adresse est
contenu dans HL.

CALL 1606 --- ADRESSE D'UNE LIGNE BASIC
On charge le nunéro de ligne dans HL. On appelle la
routine et au retour HL contient l'adresse de cette
ligne.

CALL 2503 --- CALCUL DE POSITION DE L'ECRAN
On charge C avec la coordonnée X et B avec la
coordonnée Y, Au retour HL contient l'adresse
correspondante dans la mémoire écran et À
contient la position correspondante dans l'octet,

CALL 263E --- PLOT X,Y

On charge C avec X et B avec Y,
CALL 284] --- DESSUS DE LA PILE ARITH, DANS A
CALL 2585 --- CIRCLE Y,Y,1

On doit placer sur la pile arithnétique les trois
paranètres, On doit sauvegarder le registre H'L' qui
sera corrompu par la routine.
exemple: EXX jsauvegarde H'L'

PUSH HL

EXX

LD A,coordx

CALL 30Eé

LD A,coordy

CALL 30E4

LD A,rayon

CALL 30E6
CALL 2686 ¡CIRCLE x,y,rayon
EXX jretrouve H”L*
POP HL
EXX

CALL 21DB --- PRINT CHAINE DE CARACTERE

Inprise une chaine de caractère de longueur BC,
partant à l'adresse DE,

des BBa de la region de QUEBEC |

(Cette liste est "downloadee" du BBS CAR qui est le BBS du Club Atari Quebec)

> 647-2616
TROC 64

428-2222.

BBS du 200
872-4298,

CFLS
833-2157, — (18h a 9h +FdS 24/24)

Babillard Rive-Sud (BRS)
835-3294, — (18h a 23h +FdS 24/24)

BBS ST-DAVID
833-4117, — (21h a 12h)

FORUM -ancien TFS

557-4887, L 11

lc

COCO-BABILLARD -club d'informatique du CEGEP de LIMOILOU
647-6613, — (Lundi-Jeudi 17h a 8h A.M, Vendredi 17h a Lundi Bh A.M)

MICRO-BABILLARD QUEBEC
687-4869, — (24h.)

DATAPAC -Service offert par Telecom Canada,
547-4690, (24h,) Code 9210 0085,F

TELCOM-64
927-2007. (24h.)

Universite du Quebec -Acces a des services divers Infopug, Platon...
657-2708, (24h) Taper AIDE et/ou LISTE

BBS du Club Macintosh -Ancien Tele-Foyer
558-5424,

TELESTAQ
845-1019. — (24h.)

LAB
548-9601. — (24h)

P.C. BEAUPORT
833-7136, — (24h.)

BBS Micro Info -pour ATARI
626-5616,

JE SIGNALE QUE LES TARIFS DE DATAPAC
PASSENT DE $3{US) À $12(U5)/HEURE,
AVIS AUX INTERESSES!
LES MANIAQUES DE COMPUSERVE OÙ DELPHI
ATTENTION À VOTRE PORTEFEUILLE!
(suite page 24,,,)

Sinclair

ARACTERE DOUBLE HAUTEUR p db

Voici une petite routine qui est bien utile pour le 2058, Cette
routine sert à écrire avec des caractères double hauteur, Elle se
situe à partir de la ligne 1909. Avant d'appeler celle-çi nous
devons spécifier les variables suivantes:

ligne --) nunéro de ]a ligne
colonne --) numéro de la colonne
a$ --) le texte

Cette routine est tirée du ZX COMPUTING du mois Octobre 1986,

19 REM DEMO DU PROGRAMME DOUBLE HAUTEUR
20 :
39 LET LIGNE=ÿ: LET COLONNE=0
40 LET A$="Ceci est un test"
30 6OSUB 1000
50 LET LIGNE=LIGNE+2
79 LET COLONNE=0
80 LET A$="de la routine qui imprime"
90 B0SUB 1999
190 LET LIGNE=LIGNE+2
110 LET COLONNE=0
120 LET A$z'EN DOUBLE HAUTEUR"
139 GOSUB 1000
140 STOP
999 |
1008 FOR A=1 TO LEN AS:LET C=15616
* (BE (CODE A$(A)-32): FOR B=0
TO 7: LET D=(USR "a'*(b12)):
POKE d,PEEK (c+b):POKE (del),
PEEK (C+B): NEXT B: PRINT AT
LIGNE,COLONNE; "A" ;AT LIGNE+1,
COLONNE; "B*:LET COLONNE=COLONNE
+1: NEXT As RETURN

NOTE : --) Caractère "A" en node GRAPHIQUE

À
B --> Caractère "B" en mode GRAPHIQUE

13

14

L QL-SUBSTTTUTTO |

DESCRIPTION

Voici un prograsae qui a une fonction très utile qui peut vous
Sauvez plusieurs minutes de travail acharné, Il prend un fichier
quelconque (BASIC, texte...) et recherche un item que nous lui
spécifions et le remplace par un autre, Voici un exemple,
Supposons que vous venez d'acquérir un lecteur de disquette et
que vous voulez changer tous les MDVs pour des FLPs alors le
programme que voici le fera en un rien de temps...

MARCHE & SUIVRE

Le programme vous demande en premier lieu le non du fichier à
aoditier,
exemple -> Le noa du fichier à aodifier : advi test bas

Puis vous donnez le non du nouveau fichier modifié.
exempel -> Le nouveau fichier iflpi_test2 bas

Ensuite vous donnez l'ites à changer et avec quoi on le remplace,
exemple -> L'iten à renplacer + ndy
et on le remplace par : flp

Les 2 WINDOWS du centre vous montre le fichier original et le
nouveau fichier au cours du traitement. Un autre petit WINDOW
nous donne le nombre de lignes traitées et combien de
aodifications ont été effectuées,

IMPORTANT: Si le prograane est interrompu à cause d'un message
d'erreur, il est important de taper CLEAN afin de
fermer les fichiers.

PROGRAMME GL:

100 REMark GL-SUBSTITUTION gag-0 octobre 8b
119 :

128 :

280 MODE 4

299 WINDOW 512,256,0,0:PAPER O:CLS

399 WINDONRO, 400, 44,50, 9: BORDERKO, 1,7

310 PAPERRO, 0: INK#8,7:CLS#Q

320 WINDOWEI, 512,100, 8, 4S: BORDERH1,1,7

330 PAPEREL, 9: INK#1,7:CLS#1

349 WINDONE2, 512, 100,0, 146: BORDER#2, 1,7

350 PAPERY2,0:INK#2,4:CLS42

369 :

370 INPUTRO, "le noa de programae (ex, advi progl) :";prog$
3809 INPUTRO, "le nouveau programme (ex. advi prog?) :"iprogi$
399 INPUTHO, "L'itea ou le aot à changer 3"jitea$
400 INPUTEO, "et on remplace le not ou litem par — :"jchange$
40:

420 :

439 WINDONRO, 133,24, 370, 15: PAPERKO, SB: BORDERHO, 1, 7:CLSHO
440 OPEN $6,prog$

450 OPEN_NEW#7,progi$

460 :

470 :

480 IF items INSTR change$:PRINTHO, * SUBSTITUTION” V ILLEGALE
LIEU PAUSE: cl ean: RUN

490 ligne=ismodification=0

500 PRINT#9,’#ligne courante: V #aodifications 1”

910 : |

929 :

334 REPeat loop

549 IF EOF 5) :EXIT loop

559 ATED, O, Lbs PRINTED, ligne

360 ATO, 1, 16: PRINTEO, modification

570 INPUTHE, ligne$

980 PRINTH, lignes

390 verification ligne

500 PRINT#2, Ligne$

619 PRINT#7, lignes

620 lignezligne*i

539 END REPeat loop

540 clean

659 WINDOWED, 200, 43,100,120: BORDER+O, 1,7: CLSHO

669 PRINTHB,TO 5,' SUBSTITUTION TERMINEE,”

679 PRINT#Ø, TO 3,'APPUYER SUR UNE TOUCHE POUR '

589 PRINT$O,TO 11,' CONTINUER'

699 PRINTO, TO 5,'0U <8) POUR TERMINER.

709 REPeat loopri$=INKEYS: IF 1$O "EXIT loop

719 IF i$szz'q'

729 PRINTéQ,'Retour au SUPERBASIC.':STOP

730 ELSE

749 RUN

759 END IF

760 : L
»

15

16

774 :

780 DEFine PROCedure verification ligne
790 positionzitens INSTR lignes

890 IF position

810 aodification=nodificationt!

820 IF position+LEN(iten$) >LEN(lignes)

821 ligne$=ligne$(1 TO position-i)kchange$:RETurn
840 ELSE
859 ligne$=ligne$(1 TO

position-1)kchanges$klignes (position+LEN(item$)TO LEN (ligne$))
960 END IF
878 ELSE
8860 RETurn
899 END IF
960 verification ligne
919 END DEFine
920 :
930 :
949 DEFine PROCedure clean:CLOSE#b:CLOSE#7:END DEFine

"TERI de DISQU |

Tout le monde sait qu'un des gros problèmes du 2X-81 et du
18-1000 était de sauver et de charger les programmes. On sait
aussi que le 15-2068 est une nette amélioration pour la rapidité
et la fiabilité aais les progrannes sont généralement beaucoup
plus longs.

Après environ 4 ans d'utilisation de mon bon vieux
magnétophone, je croyais qu'il était temps de passer à autre
chose de mieux. Depuis 1 an et demi à 2 ans, plusieurs
interfaces pour le TS-2068 existent, Après avoir pris
connaissance de plusieurs annonces dans des magazines, j'ai
communiqué avec 4 ou 3 compagnies, J'ai alors reçu d'excellentes
documentations et j'ai eu à faire un choix. C'était très
difficile de choisir parce qu'il était pratiquement impossible
de trouver quelque chose de complet à moins de 300,00$. Je
n'était pas intéressé par les micro drives qui étaient pour aoi
un genre de système à cassette aodifié, Pour le prix, c'était
celui de Larken en Ontario qui était le moins cher. D'autres
étaient beaucoup trop cher ou avaient des faiblesses qui les
rendaient moins intéressants. Mon choix s'est arreté sur celui
de John Oliger. Les principales raisons qui ont justifiées ce
choix étaient les suivantes:

l- 11 contient un EPROM de 8k pour le Dos ainsi qu'un 8k de
aéaoire statique. C'est donc dire que la aéaoire standard de
l'ordinateur n'est jamais réduite ou touchée par l'interface,

2- 11 fonctionne en TS2068 et en SPECTRUM comme pour la
cassette,

3- Il peut accepter des unités de disquettes de 3", 3 et demi
ou 5" et quart,

4- 11 peut accepter 4 unités de disquettes en nêse temps et
chacunes peut avoir des spécifications différentes (on peut
utiliser des unités de disquettes de 3" avec d'autres de 5" et
quart),

3- On peut l'acheter non assesblé afin de payer aoins cher.
C'est ce que j'ai fait et il est très facile à assembler.

b- Il contient un interrupteur qui permet, lorsqu'un programe
est en aésoire, de le sauver sur disquette en appuyant
seuleaent une touche. C’est très facile et on peut sauver tous
les programmes, aêne les aieux protégés.

7- Il est extréaenent rapide et fiable, Le temps pour sauver
ou charger un prograame est de 4 secondes,

8- Il est extrénenent facile d'utilisation. (n se sert des
sots clés du clavier coame : SAVE, LOAD, FORMAT, MOVE, VERIFY
COPY et CAT. Je pourrais continuer à nomaer beaucoup d'autres
qualités mais cet interface a quand a&me des défauts, Les
principaux sont les suivants:

l- Lorsqu'on charge ou sauve un programme, le travail se fait
sur la aénoire compléte. C'est 50k à chaque fois. Il est alors
iapossihle de se servir de l'instruction MERGE,

2- On doit créer nous-aéne le directory mais il y a dans la
docuaentation un programme qui nous pernet de le créer très
tacilement.

3- Sur un disque [BM compatible de 40 tracks DS/DD, on peut
sauver B programmes quelqu'en soit la grosseur, Celui que
j'utilise présenteaent en a 80 DS/DD et je peut sauver 16
programmes. C'est quand aéne très bien, J'ai commandé cette
unité de disquette chez B.6. Micro aux Etats-Unis et l'ai payé
39,95$ US. Ca fonctionne très bien. 7

ler

17

18

Apres avoir utilisé ce système pendant 4 à 5 mois, je peux
dire que c'est une petite merveille, I1 est très fiable, très
facile d'utilisation et très rapide. Si vous avez déjà reçu une
documentation de John Oliger, vous pouvez avoir confiance parce
que tout est vrai.

Vous êtes probablement intéressé à savoir coabien peut couter un
système conne ca! Voici:

1- L'interface: 220.00$ canadiens non asseablé incluant le
cable qui vaut environ 20,00$ (John Oliger s'organise pour qu'on
ne paie pas de douane).

2- Un power supply de Pro Technique à 20.00$,

3- Une unité de disquette de 50.00$ à 150.00$ dépendant ou
vous l’achetez,

DERNIERE HEURE: Je viens de recevoir ce soir une lettre de John
Oliger qui annonce la disponibilité d'un nouveau DOS. Ce dernier
crée lui a&ae son directory, il peraet de sauver seulement une
partie de la mémoire, il donne un aoa à là disquette au nonent
du FORMAT, Il continue à supporter les consandes de l'ancien DOS
ainsi que les disquettes écrites par cet ancien DOS,

pec Yuon Lavo tE

MICRO- AUSTU

Siaon Rioux vous propose d'autres programmes de Micro-Musique
pour votre 2068. Ses programmes ont le nérite d'exploiter
efficacement la aystérieuse commande SOUND qui exploite le "chips
de son" qui réside au coeur de votre 2068 au lieu du ridicule
BEEP des programmes "spectrumesque". Il est vrai que le nouveau
SPECTRUM 128K +2 possède maintenant le ngne circuit, alors si ce
sacré Alain Sucre peut se décider nous l'ofírir à nous pauvres
Nord-Anéricains qui sommes surmergés par l'infgme COMME-ON-DORT
bhas

> cu E sl
x Oo ^
[DODU EA M bb gU
mt
DL Uri ed Po
m SU UE f ut ovs
pc Fe cO E ATTE 03 -Ügpnni

«eg Un dud cubo irm 4 rati nur. ia
m : PU Pu. o i
eur. EIL rd. nup. nang sun
E "d rmi

"T

P

e an

4n [D T [T ni Fur

pe a ne

P fe cu

^ rl Cu CE Ur cC Uo ee xr n

1 e E

SO CC C CE
VL Cad

EET

"M
EE c CE e CE CE.
t- d n ES |-
LL «+ d GI CE

Lu CE MEL ICE

DE

E DU EG
If 3 P» ua

en

ng
wi

Wim

riu

al.

FE EL alf] EL. gae CL ga TIA

V LE guy sime! Ta Hr ra uoa a ra A
ie r m

nn

nns

pe mp gp ccm

OA

Ll

zl

nj WM. MM

Li
[TT

esce
EE e

n (cu

"m
LEA]
Pere EE

vA DNO
H EL [Li

EL
ul
It

mieu --

del

"n "ng cà

mu

hiec nnd od ec
Er E IE 4 CL
i

Sa
|

Vr
!
ce

DO
uu
i l i| JE c LEE

ZH FACE LE

a raln

TOT
44 np npe ey eu ni

Wa uua
np np en

Qe»
LM ETS

E cp
DJ 3M EE

AE IL. CE CL

3 ia eu e P E z
Fr i3 et 1] " DES
pem eaim mai

EI
Ww un
rar v

el

NOTES SUR "2068 + UNITE de DISQUETTE" (p.16)

ec

Dans cet article, M. Yvon Lavoie nous parle de l'achat de son
controlleur de disquette pour le 2068. Voici quelques détails
supplémentaires, qui seront intéressé le lecteur,

Preniérenent voici l'adresse de John Oliger :

The John Oliger Co.
11501 Whidbay Dr.
Cumberland, IN 45229 USA

Si vous voulez un catalogue, écrivez-lui et inclure $1 pour les
frais de poste. Oliger propose également un programmeur d'EPROM
(2754/27128), un interface parallèle un port Joystick compatible
KEMPSTON et bien d’autres... Tout ça est offert soit tout monté,
en pièce détachées ( donc soudure requise ) ou bien seulement
sous la forme de circuit imprimé., Oliger offre un service de
prenière classe tant par le délai de livraison que par la qualité
de la documentation fournie avec ses interfaces,

Pour nos lecteurs de l'extérieur de Québec, mentionnons que
Pro-Technique est un aagasin de pièces électroniques de la
région, Leur adresse est :

PRO TECHNIQUE 383 la Canadière Québec
Tél.: 529-5774

En ce qui concerne B.G. MICRO on peut les rejoindre à l'adresse
suivante:

B.6. MICRO

P.0, BOX 280298

DALLAS TEXAS 75228 USA

Tél.: (241) 271-3546

Regardez dans COMPUTER SHOPPER pour plus d'inforaations sur leurs
prix.

SIN parait au deux mois et un abonnement
E

comprend 6 numeros. Si vous desirez une
liste des sommaires des anciens numeros,
envoyez 1$ a l'adresse cues

Si vous êtes abonné a SIN et que vous
possédez un ÜL,envouez-moi un microdrive
formatté plus $1 et recevez par le retour
du courrier un programme écrit sous
ARCHIVE pour classer vos sommaires de SIN!
Pour toutes correspondances écrire à:

Real Gagnon
4874 Henri Julien

Montreal P.Q.
HeT 2E1

Abonnement UB nos2........ esses ,. $15.80
Liste des SOM Fes $ 1.88
féètens Numéros er. losses $c.ü08

(tous disponibles? + .5Ü pour poste

nor FESSER
ADR UA AA114404040040240444404139449040415410390+04040994044+040
RSR OO 444 444304
9*9 9999»*9€9*99?*9699299*999*99)9*999669*55À).9À79*9529^228
ORDINATEUR TS1808/7X81
S52068-S3PECTRUN

SINCLAIR GL 2.

ANE

AUTRES

(suite de la page 12) C 665...)

BBS signifie Bulletin Board Service ou BaBillardS si on veut.
Même si ils sont souvent gratuits et il faut néanmoins s'inscrire
officiellement au SYSOP, qui se trouve à être le SYStem OPerator,
Pour ce faire, on lui laisse habituellement un message personel
lui indiquant votre noa, le noa de votre ordinateur ainsi que
votre no, de téléphone. Pour des raisons assez aystérieuses les
gens sont toujours portés à ne pas donner leur vrai nom ou no, de
téléphone, ce qui est vraiment dommage car la principale victime
se trouve à être cette afae personne qui se verra par la suite
refuser les services les plus intéressants du BBS,

Cosme la plupart des BBS sont opérés de façon bénévole, il n'est
étonnant qu'ils disparaissent aussi vite qu'ils apparaissent. Ces
disparitions sont souvent le résultat du sanque de participation
des usagers, En effet pour qu'un BBS soit intéressant il faut non
seulement appeler aais égalenent s'en servir soit pour partir des
discussions, pour poser des questions ou donner des réponses.

Le aonde de l'informatique étant ce qu'il est, les ordinateurs
SINCLAIR sont loin de former la majorité des nembres actifs des
BaBillardS. Cette situation pourrait changer avec la baisse de
prix du MODEM T52050 (voir SINCLAIR NEWS), Qui sait peut-être
qu'un jour nous verrons un BBS québecois avec une section
spéciale pour les usagers SINCLAIR,..

Sinclair

Rédacteur: Réal Gagnon, 4870 Henri Julien Montréal P.Q, H2T 2El
Collaboration: Yvon Lavoie,Jean-Claude Touzin,Siaon Rioux.
Ce bulletin est conçu avec l'aide du traitement de texte QUILL
(PSION) et de TASPRINT (TASMAN SOFTWARE), L'impression se fait
sur
une imprimante STAR NX-10,